﻿Public Class clsSampleNumAQL
    Public Function selectAQLValue(INVNUM As Integer, CHECKFREQ As String) As DataTable
        Dim szSql As String = ""

        szSql &= "SELECT * FROM ( "
        szSql &= "SELECT * FROM PER.T_SAMPLE_NUM_AQL WHERE INVNUM >= ? AND CHECKFREQ = ? ORDER BY INVNUM ASC)　"
        szSql &= " WHERE ROWNUM <=1"

        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, INVNUM, CHECKFREQ)

        Return dt
    End Function

End Class
